home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 3 / ct-rom iiib.zip / ct-rom iiib / WINDOWS / DIVERSEN / WINE02BX / MAIL-ABB.ELC < prev    next >
Text File  |  1993-03-28  |  11KB  |  78 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:31:56 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/modes/mail-abb.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (require 'sendmail)
  14. (defvar mail-abbrev-mailrc-file nil "\
  15. Name of file with mail aliases.   If nil, ~/.mailrc is used.")
  16. (fset 'mail-abbrev-mailrc-file '(macro . #[nil "└ç" [(or mail-abbrev-mailrc-file (setq mail-abbrev-mailrc-file (or (getenv "MAILRC") "~/.mailrc")))] 1]))
  17. (defvar mail-aliases nil "\
  18. Word-abbrev table of mail address aliases.
  19. If this is nil, it means the aliases have not yet been initialized and
  20. should be read from the .mailrc file.  (This is distinct from there being
  21. no aliases, which is represented by this being a table with no entries.)")
  22. (fset 'mail-aliases-setup #[nil "└    !¼Æ┬ «ê─┼!«ü╞ë!½â╟ ê╚╔!ê    <½ì    @╩=¼å╦    B¬ä╦    D    ╠═!ç" [vectorp mail-aliases file-exists-p mail-abbrev-mailrc-file getenv "MAILRC" "~/.mailrc" build-mail-aliases make-local-variable pre-abbrev-expand-hook lambda sendmail-pre-abbrev-expand-hook abbrev-mode 1] 3])
  23. (fset 'build-mail-aliases #[(&optional file recursivep) "└    «ï\n«ê├─!«ü┼ë!╞!¼ê╚╔╟╚\"ê╩╦    \"ê╚p ╬Ä╧╨!╤!êqê╥    !½Äè╥    !qêed{)cê¬ë╙    !½ä╘    !êdbêh╒=¼â╓ êebê╫╪╚┘#½É`┌Z╚ê`|ê)¬iebêm¼Ü╚êh▄U½ì▌▐!ê▌▀!êαcê¬h▀uê¬cebêßΓ╚┘#½╕πyêΣσ!½Ä╚êµ▀ö▀ò{┘\"ê¬cßτ!ê▀ö▀ò{(Θ╚wê`*╚êδ(*`{┘#ê*¬A,¼âφ ê+╩ε    \"ç" [expand-file-name file mail-abbrev-mailrc-file getenv "MAILRC" "~/.mailrc" vectorp mail-aliases nil define-abbrev-table message "Parsing %s..." obuf buffer ((byte-code "½ä┴!ê\nqç" [buffer kill-buffer obuf] 2)) generate-new-buffer "mailrc" buffer-disable-undo get-file-buffer file-exists-p insert-file-contents 10 newline search-forward "# " t 2 p 92 delete-char -1 1 32 re-search-forward "^\\(a\\(lias\\)?\\|g\\(roup\\)?\\|source\\)[     ]+" 0 looking-at "source[     ]+\\([^     \n]+\\)" build-mail-aliases "[     ]+\\([^     \n]+\\)" name "     " start define-mail-alias recursivep mail-resolve-all-aliases "Parsing %s... done"] 4 "\
  24. Read mail aliases from .mailrc and set mail-aliases."])
  25. (defvar mail-alias-separator-string ", " "\
  26. *A string inserted between addresses in multi-address mail aliases.
  27. This has to contain a comma, so \", \" is a reasonable value.  You might 
  28. also want something like \",\\n    \" to get each address on its own line.")
  29. (byte-code "└┴!¼é┬└ç" [boundp mail-abbrev-aliases-need-to-be-resolved t] 2)
  30. (fset 'define-mail-alias #[(name definition &optional from-mailrc-file) "└    !¼Ö┬├┴┬\"ê─«ê╞╟!«ü╚ë!½â╔ ê╩╦ \"½ê ═ò┬O ╩╬ \"½ê ═ëöO ┬═ G┬½╨½ñ H╘=½ÉT╩╒ #¬ö╩╓ #¬ë╩╫ # OB¡è═òU?¡é═òë¼0╪┘ƒ# ,█ù▀     α$)ç" [vectorp mail-aliases nil define-abbrev-table file-exists-p mail-abbrev-mailrc-file getenv "MAILRC" "~/.mailrc" build-mail-aliases string-match "\\`[     \n,]+" definition 0 "[     \n,]+\\'" end L start result from-mailrc-file 34 "\"[     ,]*" "[     ,]+" "[     \n,]*,[     \n,]*" mapconcat identity mail-alias-separator-string t mail-abbrev-aliases-need-to-be-resolved name abbrevs-changed define-abbrev mail-abbrev-expand-hook] 6 "\
  31. Define NAME as a mail-alias that translates to DEFINITION.
  32. If DEFINITION contains multiple addresses, separate them with commas." "sDefine mail alias: \nsDefine %s as mail alias for: "])
  33. (fset 'mail-resolve-all-aliases #[nil "¡ì┴\n!½à├─\n\"ê┼ëç" [mail-abbrev-aliases-need-to-be-resolved vectorp mail-aliases mapatoms mail-resolve-all-aliases-1 nil] 3 "\
  34. Resolve all forward references in the mail aliases table."])
  35. (fset 'mail-resolve-all-aliases-1 #[(sym &optional so-far) "    >½ï┬├─┼    B╞#\"ê╟!¡éJë½║╔╩   ½á═╬ # O B ¡é╩ò )¬\\─╨ ƒ#Lê*)Jç" [sym so-far error "mail alias loop detected: %s" mapconcat symbol-name " <- " boundp definition nil 0 start result string-match "[     \n]*,[,     \n]*" end #[(x) "└┴\n \" B\"«ü\nç" [mail-resolve-all-aliases-1 intern-soft x mail-aliases sym so-far] 4] mail-alias-separator-string] 7])
  36. (fset 'mail-abbrev-expand-hook #[nil "è`└ëë┼yê` bê¡╣iY¡│╚╔ ╩#¡¼`╦uê╠cê═ ê`╬ ê `{└êiV½è    «ü╧╤ ê)\nbê¬C-ç" [nil fp comma bol p 0 auto-fill-function fill-column search-backward "," t 1 "\n" delete-horizontal-space indent-relative "    " fill-prefix do-auto-fill] 4 "\
  37. For use as the fourth arg to define-abbrev.
  38. After expanding a mail-abbrev, if fill-mode is on and we're past the
  39. fill-column, break the line at the previous comma, and indent the next
  40. line."])
  41. (defvar mail-abbrev-mode-regexp "^\\(Resent-\\)?\\(To\\|From\\|CC\\|BCC\\):" "\
  42. *Regexp to select mail-headers in which mail-aliases should be expanded.
  43. This string it will be handed to `looking-at' with the point at the beginning
  44. of the current line; if it matches, abbrev mode will be turned on, otherwise
  45. it will be turned off.  (You don't need to worry about continuation lines.)
  46. This should be set to match those mail fields in which you want abbreviations
  47. turned on.")
  48. (defvar mail-mode-syntax-table (copy-syntax-table text-mode-syntax-table) "\
  49. The syntax table which is used in send-mail mode message bodies.")
  50. (defvar mail-mode-header-syntax-table (byte-code "└    !├─┼\n#ê├╞┼\n#ê├╟┼\n#ê├╚┼\n#ê├╔┼\n#ê├╩┼\n#ê├╦╠\n#ê├═╬\n#ê\n)ç" [copy-syntax-table text-mode-syntax-table tab modify-syntax-entry 64 "_" 37 33 46 95 45 60 "(>" 62 ")<"] 4) "\
  51. The syntax table used in send-mail mode when in a mail-address header.
  52. mail-mode-syntax-table is used when the cursor is in the message body or in
  53. non-address headers.")
  54. (defvar mail-abbrev-syntax-table (byte-code "└    !ëGS─ ┼H─ ╟H ╔Y½ö\n HU½å\n Iê Së¬h\n,ç" [copy-syntax-table mail-mode-header-syntax-table tab i standard-syntax-table 95 _ 119 w 0] 4) "\
  55. The syntax-table used for abbrev-expansion purposes; this is not actually
  56. made the current syntax table of the buffer, but simply controls the set of
  57. characters which may be a part of the name of a mail-alias.")
  58. (fset 'mail-abbrev-in-expansion-header-p #[nil "└è┬yê├─!½è`eU¼à┼yê¬q├!)¡Æ`èebê╟╚    ╚Q╩┬#ê`)W)ç" [t case-fold-search 0 looking-at "^[     ]" -1 mail-abbrev-mode-regexp search-forward "\n" mail-header-separator nil] 5 "\
  59. Whether point is in a mail-address header field."])
  60. (fset 'sendmail-pre-abbrev-expand-hook #[nil "½â┴ ê\n¡┐\n├=?¡╣─ ¼Ä┼╞!¡é╚    !ç\n╚\n!ê z╠=¼æ═╚!ê╨ ê╚\n!ê)`pëç" [mail-abbrev-aliases-need-to-be-resolved mail-resolve-all-aliases mail-aliases t mail-abbrev-in-expansion-header-p boundp mail-mode-abbrev-table local-abbrev-table set-syntax-table mail-mode-syntax-table mail-mode-header-syntax-table last-command-char 95 nil pre-abbrev-expand-hook mail-abbrev-syntax-table expand-abbrev abbrev-start-location abbrev-start-location-buffer] 2])
  61. (fset 'merge-mail-aliases #[(file) "└    !ç" [build-mail-aliases file] 2 "\
  62. Merge mail aliases from the given file with existing ones." (byte-code "└┴┬! «ê─┼!«ü╞ë    ╩╦╠\"┴\"└$+Cç" [t expand-file-name "~/" mail-abbrev-mailrc-file getenv "MAILRC" "~/.mailrc" def default-directory insert-default-directory read-file-name format "Read additional aliases from file: (default %s) "] 6)])
  63. (fset 'rebuild-mail-aliases #[(file) "└┬ !ç" [nil mail-aliases build-mail-aliases file] 2 "\
  64. Rebuild all the mail aliases from the given file." (byte-code "└┴┬! «ê─┼!«ü╞ë    ╩╦╠\"┴\"└$+Cç" [t expand-file-name "~/" mail-abbrev-mailrc-file getenv "MAILRC" "~/.mailrc" def default-directory insert-default-directory read-file-name format "Read mail aliases from file: (default %s) "] 6)])
  65. (fset 'mail-interactive-insert-alias #[(&optional alias) "└    !¼â┬ ê ½ç─     \"J«ü┼cç" [vectorp mail-aliases mail-aliases-setup alias intern-soft ""] 3 "\
  66. Prompt for and insert a mail alias." (byte-code "└    !¼â┬ ê├─    ┼╞$Cç" [vectorp mail-aliases mail-aliases-setup completing-read "Expand alias: " nil t] 5)])
  67. (fset 'abbrev-hacking-next-line #[(&optional arg) "└┴!½â┬ ê├├!ç" [looking-at "[     ]*\n" expand-abbrev next-line this-command arg] 2 "\
  68. Just like `next-line' (\\[next-line]) but expands abbrevs when at end of line." "p"])
  69. (fset 'abbrev-hacking-end-of-buffer #[(&optional arg) "└┴!½â┬ ê├├!ç" [looking-at "[     ]*\n" expand-abbrev end-of-buffer this-command arg] 2 "\
  70. Just like `end-of-buffer' (\\[end-of-buffer]) but expands abbrevs when at end of line." "P"])
  71. (byte-code "└    ┬├#ê─┼!ç" [define-key mail-mode-map "" mail-interactive-insert-alias provide mail-abbrevs] 4)
  72. (fset 'sendmail-v18-self-insert-command #[(arg) "z┴=¼à┬ ê├┼ ?¡é╟!)ç" [last-command-char 119 sendmail-pre-abbrev-expand-hook nil abbrev-start-location mail-abbrev-in-expansion-header-p abbrev-mode self-insert-command arg] 2 "\
  73. Just like self-insert-command, but runs sendmail-pre-abbrev-expand-hook." "p"])
  74. (byte-code "└┴Mê┬├Mê─┼!¼é╞╟╚Mç" [abbrev-hacking-next-line-v18 #[(arg) "└┴!½â┬ ê├├!ç" [looking-at "[     ]*\n" sendmail-pre-abbrev-expand-hook next-line this-command arg] 2] abbrev-hacking-end-of-buffer-v18 #[(arg) "└┴!½â┬ ê├├!ç" [looking-at "[     ]*\n" sendmail-pre-abbrev-expand-hook end-of-buffer this-command arg] 2] boundp mail-abbrevs-v18-map-munged nil mail-abbrevs-v18-munge-map #[nil "└ ┴┬ ╞W½Ü ₧A«â H╚=½å ╔B B Të¬b╩! ƒñ+╦ë ç" [current-global-map nil 0 i new-bindings global-map 128 mail-mode-map self-insert-command sendmail-v18-self-insert-command copy-keymap t mail-abbrevs-v18-map-munged] 4]] 2)
  75. (fset 'mail-aliases-setup-v18 #[nil "┴=??¡╡\n½å├ \n=¼ä─┼!ê╞!¼ö╚    «ë╩╦!«ü╠ë    !½â═ ê¼â╧ ê╨\n!ê╤╥!ç" [major-mode mail-mode mail-mode-map current-local-map error "shut 'er down clancy, she's suckin' mud" vectorp mail-aliases file-exists-p mail-abbrev-mailrc-file getenv "MAILRC" "~/.mailrc" build-mail-aliases mail-abbrevs-v18-map-munged mail-abbrevs-v18-munge-map use-local-map abbrev-mode 1] 3 "\
  76. Put this on `mail-setup-hook' to use mail-abbrevs."])
  77. (byte-code "└┴\n\"¼ê├─!½σ ½Γ┼╞!¼ä╞╟Mê┼╚!¼à╚╔KMê╔╩Mê╦╠Mê═╬Mê╧╨Mê┼╤!¼à╤╥KMê╥╙Mê┼╘!½í╘Kó╒=½ë╓╘KA@╫\"¬ü╫½Ä┼╪!¼à╪┘KMê┘┌Mê▄=½ë▌ ê¬ä▐╦!ê└ç" [string-match "^18\\." emacs-version boundp epoch::version fboundp buffer-disable-undo buffer-flush-undo mail-abbrev-expand-hook-v19 mail-abbrev-expand-hook #[nil "┬ )ç" [auto-fill-hook auto-fill-function mail-abbrev-expand-hook-v19] 1] expand-mail-aliases (lambda (&rest args) "Obsoleted by mail-abbrevs.  Does nothing." nil) abbrev-hacking-next-line #[(p) "└    !ç" [abbrev-hacking-next-line-v18 p] 2 nil "p"] abbrev-hacking-end-of-buffer #[(p) "└    !ç" [abbrev-hacking-end-of-buffer-v18 p] 2 nil "P"] mail-setup-v18 mail-setup #[(&rest args) "└ ê┴┬ \"ç" [mail-aliases-setup-v18 apply mail-setup-v18 args] 3] vm-mail autoload load t vm-mail-internal-v18 vm-mail-internal #[(&rest args) "└┴\n\"ê├ ç" [apply vm-mail-internal-v18 args mail-aliases-setup-v18] 3] major-mode mail-mode mail-aliases-setup-v18 fmakunbound] 3)
  78.